home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / unixport / init_kcn.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-05-07  |  955 b   |  25 lines
  1. (in-package "COMPILER")
  2. (in-package "SYSTEM")
  3. (in-package "USER")
  4. (in-package "LISP")
  5. (in-package "USER")
  6. (progn (allocate 'cons 90) (system:init-system) (gbc t)
  7.  (or lisp::*link-array*
  8.   (setq lisp::*link-array*
  9.     (si::make-vector 'fixnum 200 nil 0 nil nil t)))
  10.  (use-fast-links t)
  11.  (setq system::*old-top-level* (symbol-function 'system:top-level))
  12.  (defun system::gcl-top-level nil
  13.   (when (> (system:argc) 1)
  14.         (setq system:*system-directory* (system:argv 1)))
  15.   (format t "Gcl (Austin Kyoto Common Lisp)  ~A~% ~a" "DATE"
  16.       "Please notify us of functions which fail to autoload.")
  17.   (in-package 'system::user) (funcall system::*old-top-level*))
  18.  (defun lisp-implementation-version nil "DATE")
  19.  (setq *modules* nil) (gbc t) (system:reset-gbc-count)
  20.  (allocate 'cons 100)
  21.  (defun system:top-level nil (system::gcl-top-level))
  22.  (system:save-system "saved_kcn") (bye)
  23.  (defun system:top-level nil (system::gcl-top-level))
  24.  (save "saved_kcn") (bye))
  25.